home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / HEXCLC.SDA / MAIN (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  5.1 KB  |  262 lines
  1. #$Main
  2. SEQ formatted GEOS file V1.0
  3. Olivetti PR2300
  4. OP V2.0 or higher
  5. BLASTER'S CONVERTER V2.5
  6. ASCII
  7. UTILITY
  8. COPE SOURCE V1.0
  9. DL870517
  10. COPE EDITOR V1.0
  11. ; ===
  12. ; EDITER FOR GEOS ASSEMBLER
  13. ;  BY BILL SHARP
  14. START
  15.  lda R10
  16.  sta RecoverFlag
  17.  lda $2F
  18.  sta BufDisplay
  19.  lda #128
  20.  sta $2F
  21.  JSR NewDisk
  22.  JSR MouseUp
  23.  JSR clrScreen
  24. LDX #<ICONS
  25. STX R0
  26. LDX #>ICONS
  27. STX R0+1
  28. JSR DoIcons ; SETUP ICONS
  29.  jsr TextStrings
  30.  jsr ClearAll
  31.  lda #<OurGetString
  32.  sta $84A3
  33.  lda #>OurGetString
  34.  sta $84A4
  35.  lda #26
  36.  sta keypress
  37.  jsr SWCHMODE2
  38.  lda #0
  39.  sta Keyinlen
  40. RecoverFlag .Byte 0
  41. Icon_X_Pos = 14
  42. Icon_Y_Pos = 52
  43. ; ICON EXECUTION ROUTINE
  44. ICONS
  45. .BYTE 31
  46. .WORD 160
  47. .BYTE 48+48
  48. .WORD IconData
  49. .BYTE Icon_X_Pos,Icon_Y_Pos+6*8,3,16
  50. .WORD IconCall
  51. .WORD IconData
  52. .BYTE Icon_X_Pos,Icon_Y_Pos+4*8,3,16
  53. .WORD IconCall
  54. .WORD IconData
  55. .BYTE Icon_X_Pos+3,Icon_Y_Pos+4*8,3,16
  56. .WORD IconCall
  57. .WORD IconData
  58. .BYTE Icon_X_Pos+6,Icon_Y_Pos+4*8,3,16
  59. .WORD IconCall
  60. .WORD IconData
  61. .BYTE Icon_X_Pos,Icon_Y_Pos+2*8,3,16
  62. .WORD IconCall
  63. .WORD IconData
  64. .BYTE Icon_X_Pos+3,Icon_Y_Pos+2*8,3,16
  65. .WORD IconCall
  66. .WORD IconData
  67. .BYTE Icon_X_Pos+6,Icon_Y_Pos+2*8,3,16
  68. .WORD IconCall
  69. .WORD IconData
  70. .BYTE Icon_X_Pos,Icon_Y_Pos,3,16
  71. .WORD IconCall
  72. .WORD IconData
  73. .BYTE Icon_X_Pos+3,Icon_Y_Pos,3,16
  74. .WORD IconCall
  75. .WORD IconData
  76. .BYTE Icon_X_Pos+6,Icon_Y_Pos,3,16
  77. .WORD IconCall
  78. .WORD IconData
  79. .BYTE Icon_X_Pos+3,Icon_Y_Pos+6*8,3,16
  80. .WORD IconCall
  81. .WORD IconData
  82. .BYTE Icon_X_Pos+6,Icon_Y_Pos+6*8,3,16
  83. .WORD IconCall
  84. .WORD IconData
  85. .BYTE Icon_X_Pos+9,Icon_Y_Pos+6*8,3,16
  86. .WORD IconCall
  87. .WORD IconData
  88. .BYTE Icon_X_Pos+9,Icon_Y_Pos+4*8,3,16
  89. .WORD IconCall
  90. .WORD IconData
  91. .BYTE Icon_X_Pos+9,Icon_Y_Pos+2*8,3,16
  92. .WORD IconCall
  93. .WORD IconData
  94. .BYTE Icon_X_Pos+9,Icon_Y_Pos,3,16
  95. .WORD IconCall
  96. ;*************************
  97. .WORD IconData
  98. .BYTE Icon_X_Pos,Icon_Y_Pos+12*8,3,16
  99. .WORD Clear
  100. .WORD IconData
  101. .BYTE Icon_X_Pos+3,Icon_Y_Pos+12*8,3,16
  102. .WORD ClearAll
  103. .WORD IconData
  104. .BYTE Icon_X_Pos+6,Icon_Y_Pos+12*8,3,16
  105. .WORD Delete
  106. .WORD IconData
  107. .BYTE Icon_X_Pos+9,Icon_Y_Pos+12*8,3,16
  108. .WORD QUIT2
  109. .WORD IconData
  110. .BYTE Icon_X_Pos+12,Icon_Y_Pos,3,16
  111. .WORD Divide
  112. .WORD IconData
  113. .BYTE Icon_X_Pos+12,Icon_Y_Pos+2*8,3,16
  114. .WORD Multiply
  115. .WORD IconData
  116. .BYTE Icon_X_Pos+12,Icon_Y_Pos+4*8,3,16
  117. .WORD Subtract
  118. .WORD IconData
  119. .BYTE Icon_X_Pos+12,Icon_Y_Pos+6*8,3,16
  120. .WORD Add
  121. .WORD IconData
  122. .BYTE Icon_X_Pos+12,Icon_Y_Pos+8*8,3,16
  123. .WORD Equal
  124. .WORD IconData
  125. .BYTE Icon_X_Pos+06,Icon_Y_Pos+8*8,3,16
  126. .WORD SWITCHMODE
  127. .WORD IconData
  128. .BYTE Icon_X_Pos+03,Icon_Y_Pos+8*8,3,16
  129. .WORD SWITCHMODE
  130. .WORD IconData
  131. .BYTE Icon_X_Pos+00,Icon_Y_Pos+8*8,3,16
  132. .WORD SWITCHMODE
  133. .WORD IconData
  134. .BYTE Icon_X_Pos,Icon_Y_Pos+10*8,3,16
  135. .WORD DOAND
  136. .WORD IconData
  137. .BYTE Icon_X_Pos+3,Icon_Y_Pos+10*8,3,16
  138. .WORD DOEOR
  139. .WORD IconData
  140. .BYTE Icon_X_Pos+6,Icon_Y_Pos+10*8,3,16
  141. .WORD DOORA
  142. ; the icon data is stored in BitMapUp format
  143. IconData
  144. .BYTE 128+48
  145. .Byte $FF,$FF,$FC
  146. .Byte 128,0,12,128,0,12,128,0,12,128,0,12,128,0,12
  147. .Byte 128,0,12,128,0,12,128,0,12
  148. .Byte 128,0,12,128,0,12,128,0,12,128,0,12
  149. .Byte $FF,$FF,$FC
  150. .Byte $FF,$FF,$FC
  151. .Byte 0,0,0,0,0,0
  152. QUIT2
  153.  LDA #15
  154.  JSR SetPattern
  155.  jsr i_Rectangle
  156.  .Byte 28-12
  157.  .Byte 28+144+12
  158.  .Word 64
  159.  .Word 256
  160.  LDA #$FF
  161.  JSR $C127
  162.  LDA #0
  163.  JSR SetPattern
  164.  jsr i_Rectangle
  165.  .Byte 28
  166.  .Byte 28+144
  167.  .Word 64+16
  168.  .Word 256-16
  169.  LDA #$FF
  170.  JSR $C127
  171. LDX #<ICONS1
  172. STX R0
  173. LDX #>ICONS1
  174. STX R0+1
  175. JSR DoIcons ; SETUP ICONS
  176. jsr $C1AE ; iputstring
  177. .Word 187+16+16
  178. .Byte 158+7
  179. .Byte 'Exit',0
  180. jsr $C1AE
  181. .Word 64+16+6
  182. .Byte 28+10
  183. .Byte 24
  184. .Byte '  geoHexCalc',27,' was completely',13,20
  185. .Word 64+16+6
  186. .Byte 'written within the GEOS',13,20
  187. .Word 64+16+6
  188. .Byte 'environment using ',24,'geoCOPE.',13,20
  189. .Word 64+16+6
  190. .Byte 'geoCOPE',27,' is an Assembler/Editor',13,20
  191. .Word 64+16+6
  192. .Byte 'package for machine language ',13,20
  193. .Word 64+16+6
  194. .Byte 'programmers.  See the geoWrite',13,20
  195. .Word 64+16+6
  196. .Byte 'file for more information.',13,13,20
  197. .Word 64+16+6
  198. .Byte 24,'geoCOPE is available for',13,20
  199. .Word 64+16+6
  200. .Byte 'only $19.95 from:',13,13,20
  201. .Word 64+16+6
  202. .Byte 'Bill Sharp Computing',13,20
  203. .Word 64+16+6
  204. .Byte 'P.O. Box 7533',13,20
  205. .Word 64+16+6
  206. .Byte 'Waco, TX 76714',27,0
  207. ;-------
  208. ICONS1
  209. .BYTE 1
  210. .WORD 176+16
  211. .BYTE 156
  212. .WORD IconData
  213. .BYTE 27,156,3,16
  214. .WORD ExitHere
  215. ;-------
  216. ExitHere
  217. lda RecoverFlag
  218.  bpl QUOK
  219.  jsr i_RecoverRectangle
  220.  .Byte 28-12
  221.  .Byte 28+144+12
  222.  .Word 64
  223.  .Word 256
  224.  lda BufDisplay
  225.  sta $2F
  226.  lda #<RstrAppl
  227.  sta $849B
  228.  lda #>RstrAppl
  229.  sta $849C
  230. BufDisplay .Byte 128
  231. ;------
  232. clrScreen
  233.  LDA #2
  234.  JSR SetPattern
  235.  jsr i_Rectangle
  236.  .Byte 28
  237.  .Byte 28+144
  238.  .Word 112-4
  239.  .Word 112+120+4
  240.  LDA #$FF
  241.  JSR $C127
  242.  jsr i_FrameRectangle
  243.  .Byte 27
  244.  .Byte 28+144+1
  245.  .Word 112-4-1
  246.  .Word 112+120+4+1
  247.  .Byte 255
  248.  jsr i_FrameRectangle
  249.  .Byte 26
  250.  .Byte 28+144+2
  251.  .Word 112-4-2
  252.  .Word 112+120+4+2
  253.  .Byte 255
  254.  jsr i_FrameRectangle
  255.  .Byte 25
  256.  .Byte 28+144+3
  257.  .Word 112-4-3
  258.  .Word 112+120+4+3
  259.  .Byte 255
  260.  LDA #0
  261.  JSR SetPattern
  262.